home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swags_z.zip / STRINGS.SWG / 0015_TIDYSTR.PAS.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  358b  |  23 lines
  1. {
  2. KELD R. HANSEN
  3. }
  4.  
  5. PROCEDURE TidyString(VAR Str : String); ASSEMBLER;
  6. ASM
  7.   LES     DI,STR
  8.   XOR     BH,BH
  9.   MOV     BL,ES:[DI]
  10.   LEA     DI,[DI+BX+1]
  11.   MOV     SI,WORD PTR STR-2
  12.   NEG     BX
  13.   LEA     CX,[SI+BX]
  14.   XOR     AL,AL
  15.   CLD
  16.   REP     STOSB
  17. END;
  18.  
  19. {
  20. which fills up the garbage after the current string length with zeroes.
  21. }
  22.  
  23.